#Include "RwMake.ch"

/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! REI05G03                                                !
+------------------+---------------------------------------------------------+
!Descricao         ! Gatilho para do campo C6_TES para preencher o campo     !
!                  ! C5_ZTIPOPD, quando a TES for igual ao parametro         !
!                  ! REI_TESTRA (TES DE TRANSFERENCIA)                       !
+------------------+---------------------------------------------------------+
!Autor             ! DFR - Danilo Ferreira Ramos                   !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 14/10/10                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/


User Function REI05G03(sTES)
	if sTES $ SuperGetMv("REI_TESTRA")
		M->C5_ZTIPOPD := '2'
		GETDREFRESH()
	endif
return (sTES)